Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/Moscow ML 1.42/src/test/testc.sml

Text File | 1997-08-18 | 140 b | 8 lines | [TEXT/R*ch]

(* Printing cyclic structures *)

datatype xxx = P | Q of {key: (xxx ref * xxx ref) list};

val z = ref P;
z := Q{key = [(z,z), (z,z)]};
z;